«VERSION = 3.00"Arial, 1, 10, 6, 16, 13, 14, 3, 0  frmnotitlePixelsClass1form frmnotitleéTop = 75 Left = 20 Height = 225 Width = 513 DoCreate = .T. BorderStyle = 1 Caption = "" Closable = .F. ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. AlwaysOnTop = .T. ZoomBox = .F. Name = "frmnotitle" formuþòÿ \\Á%Lã'•üU ¯÷÷þTô÷üø ýþUNKEYCODE NSHIFTALTCTRLTHISDRAWMODE=¯÷÷÷÷þ%üô÷ýù6þ%™üCô÷ô÷ ô÷ ô÷ ôöýþTô÷ üøýþTô÷ ü÷ýþTô÷ ü÷ýþTô÷ üô÷ øýþT÷üô÷ ýþT÷üô÷ ýþYr¼ûframes÷÷ ÷÷÷÷Åüô÷ýüô÷ ýüô÷ýüô÷ ýü÷ýü÷ýþTô÷ü÷ýþTô÷ ü÷ýþTô÷ü-ýþþUNBUTTONNSHIFTNXCOORDNYCOORDTHISPENDOWNTHISFORMLINEOLDXOLDYCURRENTXCURRENTYDRAWMODEOBJNOLXLYFRAMENOX1Y1X2Y2©¯÷÷÷÷þ%üô÷ýù¢þTô÷üø ýþ%üô÷ùÿÿýùmþ%™üCô÷ô÷ ô÷ ô÷ ôö ýþþ!™üCô÷ô÷ ÷÷ôö ýþTô÷üøýþþU NBUTTONNSHIFTNXCOORDNYCOORDTHISPENDOWNDRAWMODEOLDXTHISFORMLINEOLDYCURRENTXCURRENTYƒ¯÷÷÷÷þ ®÷÷þ%üô÷ýù|þTô÷ü÷ýþTô÷ ü÷ýþTô÷ ü÷ýþTô÷ ü÷ýþTô÷ üaýþþU NBUTTONNSHIFTNXCOORDNYCOORDLXLYTHISLIVECURRENTXCURRENTYOLDXOLDYPENDOWNKeyPress,ÿÿMouseUpwÿÿ MouseMoveLÿÿ MouseDowneÿÿ1±31Qq’áA31QQAA21±áA1NlDde…I$)\"Arial, 1, 10, 6, 16, 13, 14, 3, 0  frmanimationPixelsClass1 frmnotitle frmanimation+pendown oldx oldy frameno objno live TPROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl this.drawmode = 10 ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF THIS.Pendown thisform.line(this.oldx,this.oldy,this.currentx,this.currenty) this.drawmode = 1 this.currentx = nXCoord this.currenty = nYCoord this.objno = this.objno + 1 lx = this.currentx ly = this.currenty INSERT INTO frames (frameno,objno,x1,y1,x2,y2) values ; (this.frameno,this.objno,this.oldx,this.oldy,nXCoord,nYCoord) this.oldx = nXCoord this.oldy = nYCoord THIS.Pendown = .F. ENDIF ENDPROC PROCEDURE MouseMove LPARAMETERS nButton, nShift, nXCoord, nYCoord IF THIS.Pendown this.drawmode = 10 if this.oldx # -1 thisform.line(this.oldx,this.oldy,this.currentx,this.currenty) endif thisform.line(this.oldx,this.oldy,nXCoord,nYCoord) this.drawmode = 1 ENDIF ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord LOCAL lx,ly IF THIS.Live THIS.currentx = nXCoord THIS.currenty = nYCoord THIS.oldx = nXCoord THIS.oldy = nYCoord THIS.pendown = .t. ENDIF ENDPROC `DoCreate = .T. oldx = -1 oldy = 0 frameno = 1 objno = 1 live = .T. Name = "frmanimation" formanim.vcx